home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MOS / MOSCONFI.I < prev    next >
Encoding:
Modula Implementation  |  1991-04-08  |  1.8 KB  |  55 lines
  1. IMPLEMENTATION MODULE MOSConfig;
  2. (*$Y+,R-,M-*)
  3.  
  4. (*
  5.  * Enthält globale Konfigurationswerte für die MOS-Moduln
  6.  *
  7.  * Hier keine Moduln importieren, für die die Konfigurationsdaten vorgesehen
  8.  * sind! (z.B. 'Loader', 'Excepts', 'ErrBase', 'HdlError', 'GEMError')
  9.  *)
  10.  
  11. FROM SysTypes IMPORT ExcSet, CHARSET, TRAP6, CHKExc, TRAPVExc, IllInstr,
  12.                      BusError, AddrError, PrivViol;
  13.  
  14. BEGIN
  15.   (* Die globalen Variablen sind anfangs alle gelöscht *)
  16.   
  17.   (* Default-Suffix für 'Load/CallModule' *)
  18.   DftSfx:= 'MOD';
  19.   (* Import-Suffix für 'Load/CallModule' *)
  20.   ImpSfx:= 'IMP';
  21.   
  22.   (* max. Anzahl der gleichzeitig startbaren Module bei 'CallModule' *)
  23.   MaxModExec:= 100;
  24.   
  25.   (* Abzufangende Exceptions: *)
  26.   CaughtExceptions:= ExcSet{TRAP6,CHKExc,TRAPVExc,BusError,AddrError,IllInstr};
  27.   (*    Die folgende Anweisung darf bei einer 68020 (z.B. Atari TT) nicht
  28.         verwendet werden. Bei einem normalen 68000-Atari kann sie dagegen
  29.         benutzt werden.
  30.     INCL (CaughtExceptions,PrivViol);
  31.   *)
  32.   
  33.   (* Zeichen zur Trennung der Vor- und Nachkommastellen bei REAL-Zahlen: *)
  34.   RadixChar:='.';
  35.   
  36.   (* Schrankenwerte für Wahl der Fest- oder Fließ- *)
  37.   (* kommadarstellung bei 'WriteReal', etc.:       *)
  38.   FixToFloatMin:=1.0E-5;
  39.   FixToFloatMax:=1.0E+6;
  40.   
  41.   (* Erwartungsform des Datums bei 'TimeConvert.TextToDate': *)
  42.   StdDateExp:= 1;  (* 1: t-m-j, 2: m-t-j, 3: j-m-t, 4: j-t-m *)
  43.  
  44.   (* Ausgabeform des Datums bei 'TimeConvert.DateToText': *)
  45.   StdDateMask:= 'DD.MM.YYYY';
  46.   StdTimeMask:= 'HH:MM:SS';
  47.   
  48.   Separators:= CHARSET {0C..' '};
  49.   
  50.   MaxBlSize:= 0;  (* So ermittelt Storage selbst den optimalen Wert *)
  51.   ExtendedMemoryAccess:= TRUE;
  52.   
  53.   CoroutineTrapNo:= 4; (* TRAP-Nr, die für Coroutinen belegt wird *)
  54. END MOSConfig.
  55.